home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / OPTIMIZE / NUMBERS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-16  |  14.1 KB  |  427 lines
  1. VERSION 5.00
  2. Begin VB.Form frmNumbers 
  3.    Caption         =   "Numeric Data Types"
  4.    ClientHeight    =   5220
  5.    ClientLeft      =   1125
  6.    ClientTop       =   1575
  7.    ClientWidth     =   5580
  8.    ClipControls    =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   5220
  13.    ScaleWidth      =   5580
  14.    Begin VB.CommandButton cmdType 
  15.       Caption         =   "Double"
  16.       Height          =   450
  17.       Index           =   5
  18.       Left            =   135
  19.       TabIndex        =   7
  20.       Top             =   4680
  21.       Width           =   2415
  22.    End
  23.    Begin VB.CommandButton cmdType 
  24.       Caption         =   "Currency"
  25.       Height          =   450
  26.       Index           =   4
  27.       Left            =   135
  28.       TabIndex        =   6
  29.       Top             =   4185
  30.       Width           =   2415
  31.    End
  32.    Begin VB.TextBox txtLoopCount 
  33.       Height          =   320
  34.       Index           =   2
  35.       Left            =   4200
  36.       TabIndex        =   8
  37.       Text            =   "200"
  38.       Top             =   3765
  39.       Width           =   1300
  40.    End
  41.    Begin VB.CommandButton cmdType 
  42.       Caption         =   "Long Counter"
  43.       Height          =   450
  44.       Index           =   3
  45.       Left            =   135
  46.       TabIndex        =   4
  47.       Top             =   2910
  48.       Width           =   2415
  49.    End
  50.    Begin VB.CommandButton cmdType 
  51.       Caption         =   "Variant Counter"
  52.       Height          =   450
  53.       Index           =   2
  54.       Left            =   135
  55.       TabIndex        =   3
  56.       Top             =   2415
  57.       Width           =   2415
  58.    End
  59.    Begin VB.TextBox txtLoopCount 
  60.       Height          =   320
  61.       Index           =   1
  62.       Left            =   4200
  63.       TabIndex        =   5
  64.       Text            =   "200"
  65.       Top             =   1995
  66.       Width           =   1300
  67.    End
  68.    Begin VB.CommandButton cmdType 
  69.       Caption         =   "Integer Counter"
  70.       Height          =   450
  71.       HelpContextID   =   1
  72.       Index           =   1
  73.       Left            =   120
  74.       TabIndex        =   1
  75.       Top             =   975
  76.       Width           =   2415
  77.    End
  78.    Begin VB.CommandButton cmdType 
  79.       Caption         =   "Long Counter"
  80.       Height          =   450
  81.       Index           =   0
  82.       Left            =   120
  83.       TabIndex        =   0
  84.       Top             =   480
  85.       Width           =   2415
  86.    End
  87.    Begin VB.TextBox txtLoopCount 
  88.       Height          =   320
  89.       Index           =   0
  90.       Left            =   4200
  91.       TabIndex        =   2
  92.       Text            =   "200"
  93.       Top             =   60
  94.       Width           =   1300
  95.    End
  96.    Begin VB.Label lblResult 
  97.       Appearance      =   0  'Flat
  98.       BackColor       =   &H80000005&
  99.       BackStyle       =   0  'Transparent
  100.       Caption         =   "00.00 secs"
  101.       BeginProperty Font 
  102.          Name            =   "MS Sans Serif"
  103.          Size            =   9.75
  104.          Charset         =   0
  105.          Weight          =   700
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       ForeColor       =   &H80000008&
  111.       Height          =   255
  112.       Index           =   5
  113.       Left            =   4200
  114.       TabIndex        =   17
  115.       Top             =   4785
  116.       Width           =   1800
  117.    End
  118.    Begin VB.Label lblResult 
  119.       Appearance      =   0  'Flat
  120.       BackColor       =   &H80000005&
  121.       BackStyle       =   0  'Transparent
  122.       Caption         =   "00.00 secs"
  123.       BeginProperty Font 
  124.          Name            =   "MS Sans Serif"
  125.          Size            =   9.75
  126.          Charset         =   0
  127.          Weight          =   700
  128.          Underline       =   0   'False
  129.          Italic          =   0   'False
  130.          Strikethrough   =   0   'False
  131.       EndProperty
  132.       ForeColor       =   &H80000008&
  133.       Height          =   255
  134.       Index           =   4
  135.       Left            =   4200
  136.       TabIndex        =   16
  137.       Top             =   4290
  138.       Width           =   1800
  139.    End
  140.    Begin VB.Label lblTitle 
  141.       Appearance      =   0  'Flat
  142.       AutoSize        =   -1  'True
  143.       BackColor       =   &H00FFFFFF&
  144.       BackStyle       =   0  'Transparent
  145.       Caption         =   "Double vs. Currency Variables"
  146.       BeginProperty Font 
  147.          Name            =   "MS Sans Serif"
  148.          Size            =   12
  149.          Charset         =   0
  150.          Weight          =   700
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       ForeColor       =   &H00800000&
  156.       Height          =   300
  157.       Index           =   2
  158.       Left            =   135
  159.       TabIndex        =   15
  160.       Top             =   3750
  161.       Width           =   3615
  162.    End
  163.    Begin VB.Line Line1 
  164.       BorderColor     =   &H00808080&
  165.       Index           =   0
  166.       X1              =   0
  167.       X2              =   7335
  168.       Y1              =   3465
  169.       Y2              =   3465
  170.    End
  171.    Begin VB.Label lblResult 
  172.       Appearance      =   0  'Flat
  173.       BackColor       =   &H80000005&
  174.       BackStyle       =   0  'Transparent
  175.       Caption         =   "00.00 secs"
  176.       BeginProperty Font 
  177.          Name            =   "MS Sans Serif"
  178.          Size            =   9.75
  179.          Charset         =   0
  180.          Weight          =   700
  181.          Underline       =   0   'False
  182.          Italic          =   0   'False
  183.          Strikethrough   =   0   'False
  184.       EndProperty
  185.       ForeColor       =   &H80000008&
  186.       Height          =   255
  187.       Index           =   3
  188.       Left            =   4200
  189.       TabIndex        =   14
  190.       Top             =   3015
  191.       Width           =   1800
  192.    End
  193.    Begin VB.Label lblResult 
  194.       Appearance      =   0  'Flat
  195.       BackColor       =   &H80000005&
  196.       BackStyle       =   0  'Transparent
  197.       Caption         =   "00.00 secs"
  198.       BeginProperty Font 
  199.          Name            =   "MS Sans Serif"
  200.          Size            =   9.75
  201.          Charset         =   0
  202.          Weight          =   700
  203.          Underline       =   0   'False
  204.          Italic          =   0   'False
  205.          Strikethrough   =   0   'False
  206.       EndProperty
  207.       ForeColor       =   &H80000008&
  208.       Height          =   255
  209.       Index           =   2
  210.       Left            =   4200
  211.       TabIndex        =   13
  212.       Top             =   2520
  213.       Width           =   1800
  214.    End
  215.    Begin VB.Label lblTitle 
  216.       Appearance      =   0  'Flat
  217.       AutoSize        =   -1  'True
  218.       BackColor       =   &H00FFFFFF&
  219.       BackStyle       =   0  'Transparent
  220.       Caption         =   "Long vs. Variant Variables"
  221.       BeginProperty Font 
  222.          Name            =   "MS Sans Serif"
  223.          Size            =   12
  224.          Charset         =   0
  225.          Weight          =   700
  226.          Underline       =   0   'False
  227.          Italic          =   0   'False
  228.          Strikethrough   =   0   'False
  229.       EndProperty
  230.       ForeColor       =   &H00800000&
  231.       Height          =   300
  232.       Index           =   1
  233.       Left            =   135
  234.       TabIndex        =   12
  235.       Top             =   1980
  236.       Width           =   3165
  237.    End
  238.    Begin VB.Line Line1 
  239.       BorderColor     =   &H00808080&
  240.       Index           =   3
  241.       X1              =   0
  242.       X2              =   7335
  243.       Y1              =   1680
  244.       Y2              =   1680
  245.    End
  246.    Begin VB.Label lblResult 
  247.       Appearance      =   0  'Flat
  248.       BackColor       =   &H80000005&
  249.       BackStyle       =   0  'Transparent
  250.       Caption         =   "00.00 secs"
  251.       BeginProperty Font 
  252.          Name            =   "MS Sans Serif"
  253.          Size            =   9.75
  254.          Charset         =   0
  255.          Weight          =   700
  256.          Underline       =   0   'False
  257.          Italic          =   0   'False
  258.          Strikethrough   =   0   'False
  259.       EndProperty
  260.       ForeColor       =   &H80000008&
  261.       Height          =   255
  262.       Index           =   1
  263.       Left            =   4200
  264.       TabIndex        =   11
  265.       Top             =   1080
  266.       Width           =   1800
  267.    End
  268.    Begin VB.Label lblResult 
  269.       Appearance      =   0  'Flat
  270.       BackColor       =   &H80000005&
  271.       BackStyle       =   0  'Transparent
  272.       Caption         =   "00.00 secs"
  273.       BeginProperty Font 
  274.          Name            =   "MS Sans Serif"
  275.          Size            =   9.75
  276.          Charset         =   0
  277.          Weight          =   700
  278.          Underline       =   0   'False
  279.          Italic          =   0   'False
  280.          Strikethrough   =   0   'False
  281.       EndProperty
  282.       ForeColor       =   &H80000008&
  283.       Height          =   255
  284.       Index           =   0
  285.       Left            =   4200
  286.       TabIndex        =   10
  287.       Top             =   585
  288.       Width           =   1800
  289.    End
  290.    Begin VB.Label lblTitle 
  291.       Appearance      =   0  'Flat
  292.       AutoSize        =   -1  'True
  293.       BackColor       =   &H00FFFFFF&
  294.       BackStyle       =   0  'Transparent
  295.       Caption         =   "Integer vs. Long Variables"
  296.       BeginProperty Font 
  297.          Name            =   "MS Sans Serif"
  298.          Size            =   12
  299.          Charset         =   0
  300.          Weight          =   700
  301.          Underline       =   0   'False
  302.          Italic          =   0   'False
  303.          Strikethrough   =   0   'False
  304.       EndProperty
  305.       ForeColor       =   &H00800000&
  306.       Height          =   300
  307.       Index           =   0
  308.       Left            =   120
  309.       TabIndex        =   9
  310.       Top             =   45
  311.       Width           =   3165
  312.    End
  313.    Begin VB.Line Line1 
  314.       BorderColor     =   &H00FFFFFF&
  315.       BorderWidth     =   2
  316.       Index           =   2
  317.       X1              =   15
  318.       X2              =   7350
  319.       Y1              =   1695
  320.       Y2              =   1680
  321.    End
  322.    Begin VB.Line Line1 
  323.       BorderColor     =   &H00FFFFFF&
  324.       BorderWidth     =   2
  325.       Index           =   1
  326.       X1              =   15
  327.       X2              =   7350
  328.       Y1              =   3480
  329.       Y2              =   3465
  330.    End
  331. Attribute VB_Name = "frmNumbers"
  332. Attribute VB_GlobalNameSpace = False
  333. Attribute VB_Creatable = False
  334. Attribute VB_TemplateDerived = False
  335. Attribute VB_PredeclaredId = True
  336. Attribute VB_Exposed = False
  337. Option Explicit
  338. Private Sub cmdVariant_Click(Index As Integer)
  339. End Sub
  340. Private Sub lblInteger_Click(Index As Integer)
  341. End Sub
  342. Private Sub cmdType_Click(Index As Integer)
  343.   Dim vCounter1 As Variant, vCounter2 As Variant, vCounter3 As Variant, vResult As Variant
  344.   Dim lCounter1 As Long, lCounter2 As Long, lCounter3 As Long, lResult As Long
  345.   Dim iCounter1 As Integer, iCounter2 As Integer, iCounter3 As Integer, iResult As Integer
  346.   Dim dCounter1 As Double, dCounter2 As Double, dCounter3 As Double, dResult As Double
  347.   Dim cCounter1 As Currency, cCounter2 As Currency, cCounter3 As Currency, cResult As Currency
  348.   Dim start As Double, Finish As Double
  349.   On Error GoTo cmd_Error
  350.   Screen.MousePointer = vbHourglass
  351.   lblResult(Index).Caption = "0.00 secs."
  352.   lblResult(Index).Refresh
  353.   Select Case Index
  354.     Case 0 ' Long Counter
  355.       start = Timer
  356.       For lCounter1 = 1 To txtLoopCount(0).Text
  357.           For lCounter2 = 1 To lCounter1
  358.               For lCounter3 = 1 To lCounter2
  359.                   lResult = lCounter3 * 100 + lCounter2 * 10 + lCounter1
  360.               Next lCounter3
  361.           Next lCounter2
  362.       Next lCounter1
  363.       Finish = Timer
  364.     Case 1  ' Integer Counter
  365.       start = Timer
  366.       For iCounter1 = 1 To txtLoopCount(0).Text
  367.           For iCounter2 = 1 To iCounter1
  368.               For iCounter3 = 1 To iCounter2
  369.                   iResult = iCounter3 * 100 + iCounter2 * 10 + iCounter1
  370.               Next iCounter3
  371.           Next iCounter2
  372.       Next iCounter1
  373.       Finish = Timer
  374.     Case 2  ' Variant Counter
  375.       start = Timer
  376.       For vCounter1 = 1 To txtLoopCount(1).Text
  377.           For vCounter2 = 1 To vCounter1
  378.               For vCounter3 = 1 To vCounter2
  379.                   vResult = vCounter3 * 100 + vCounter2 * 10 + vCounter1
  380.               Next vCounter3
  381.           Next vCounter2
  382.       Next vCounter1
  383.       Finish = Timer
  384.     Case 3  ' Long Counter
  385.       start = Timer
  386.       For lCounter1 = 1 To txtLoopCount(1).Text
  387.           For lCounter2 = 1 To lCounter1
  388.               For lCounter3 = 1 To lCounter2
  389.                   lResult = lCounter3 * 100 + lCounter2 * 10 + lCounter1
  390.               Next lCounter3
  391.           Next lCounter2
  392.       Next lCounter1
  393.       Finish = Timer
  394.     Case 4  ' Currency
  395.       start = Timer
  396.       For cCounter1 = 1 To txtLoopCount(2).Text
  397.           For cCounter2 = 1 To cCounter1
  398.               For cCounter3 = 1 To cCounter2
  399.                   cResult = (cCounter3 * 9.0123456789) + (cCounter2 * 0.001) + (cCounter1 / 0.125) - (cCounter2 * 0.001)
  400.               Next cCounter3
  401.           Next cCounter2
  402.       Next cCounter1
  403.       Finish = Timer
  404.     Case 5  ' Double
  405.       start = Timer
  406.       For dCounter1 = 1 To txtLoopCount(2).Text
  407.           For dCounter2 = 1 To dCounter1
  408.               For dCounter3 = 1 To dCounter2
  409.                   ' dResult = dCounter3 * 9.0123456789 + dCounter2 * 0.001 + dCounter1 / 0.125
  410.                   cResult = (dCounter3 * 9.0123456789) + (dCounter2 * 0.001) + (dCounter1 / 0.125) - (dCounter2 * 0.001)
  411.               Next dCounter3
  412.           Next dCounter2
  413.       Next dCounter1
  414.       Finish = Timer
  415.   End Select
  416.   lblResult(Index).Caption = Format$(Finish - start, "00.00") & " secs."
  417.   Screen.MousePointer = vbDefault
  418.   Exit Sub
  419. cmd_Error:
  420.   Screen.MousePointer = vbDefault
  421.   MsgBox "Error " & Str$(Err) & ".  " & Error$ & vbCrLf & "We will now exit this procedure.", vbExclamation, "Numeric Data Type Error"
  422.   Exit Sub
  423. End Sub
  424. Private Sub Form_Load()
  425.   PosForm Me
  426. End Sub
  427.